home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Animacje, filmy i prezentacje / Modelowanie 3D / K-3D 0.6.5.0 / k3d-all-in-one-setup-0.6.5.0.exe / k3d-setup-0.6.5.0.exe / share / lsystem / airhorse.ls < prev    next >
Encoding:
Text File  |  2005-02-12  |  898 b   |  37 lines
  1. # --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
  2. 18                    # recursion level
  3. 10                    # basic angle
  4. 200                    # starting thickness
  5. C                    # axiom
  6. #-------------------------------------- Creature
  7. C=LBW
  8. #-------------------------------------- Body
  9. B=[[''aH]|[g]]
  10. a=Fs+;'a                 # upper part
  11. g=Ft+;'g                # lower part
  12. s=[::cc!!!!&&[FFcccZ]^^^^FFcccZ]    # upper spikes
  13. t=[c!!!!&[FF]^^FF]            # lower spikes
  14. #-------------------------------------- Lungs
  15. L=O                    # 8 recursions delay
  16. O=P
  17. P=Q
  18. Q=R
  19. R=U
  20. U=X
  21. X=Y
  22. Y=V
  23. V=[cc!!!&&&&&&&&&[Zp]|[Zp]]
  24. p=h>>>>>>>>>>>>h>>>>>>>>>>>>h
  25. h=[++++!F'''p]
  26. #-------------------------------------- Head
  27. H=[cccci[>>>>>dcFFF][<<<<<ecFFF]]
  28. d=Z!&Z!&:'d                # left
  29. e=Z!^Z!^:'e                # right
  30. i=-:"i
  31. #-------------------------------------- Wing
  32. W=[%[!!cb][<<<!!cb][>>>!!cb]]
  33. b=Fl!+Fl+;'b                # arc
  34. l=[-cc{--z++z++z--|--z++z++z}]
  35. #-------------------------------------- End
  36. @
  37.